Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 671,439.4 598.62 326,740.3 1,345,272 1,231.76 677,259.5 673,832.13 100.4
lp://DOT/LCDOT 4,261,567.1 6,845.36 1,024,495.5 4,213,419 6,763.99 1,022,797.8 48,147.76 7.2
lp://AUSD/LCDOT 2,293,690.2 11,591.66 976,557.6 2,283,044 11,520.46 993,221.4 10,646.17 1.6
lp://ACA/AUSD 1,856,984.9 17,152.85 1,373,393.7 1,853,311 17,826.07 1,464,958.5 3,673.69 0.5

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,582,849.79 -333.10 -6,987.10 NA NA NA NA NA
lp://KINT/KUSD -1,282,126.52 -387.89 -4,406.17 NA NA NA NA NA
lp://PHA/KUSD -1,053,045.18 -685.63 -2,880.57 NA NA NA NA NA
lp://KUSD/KINT 1,260,080.56 -319.59 -4,001.61 19,027.83 633.37 7,611.12 1,241,052.73 NA
lp://KUSD/PHA 1,048,417.43 -652.06 -2,885.14 15,025.29 6,810.26 21,075.42 1,033,392.14 NA
lp://KUSD/KBTC 1,492,883.99 -8.08 -7,793.52 485,824.55 1,889.05 150,974.55 1,007,059.44 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,236.90 108.49 749.51 4,236.90 NA
lp://KUSD/ARIS2 160,438.92 14,671.73 68,772.35 158,322.55 18,563.75 139,850.85 2,116.38 NA
lp://KUSD/LKSM 414,496.95 1,636.54 268,217.15 412,776.32 1,633.28 423,430.64 1,720.63 NA
lp://KAR/KSM 1,108,285.33 489.58 413,058.92 1,106,605.25 489.64 441,296.43 1,680.09 NA
lp://KAR/KUSD 747,230.49 63.08 277,531.66 745,820.65 62.95 456,640.96 1,409.84 NA
lp://KUSD/CSM 35,844.27 542.87 50,579.93 35,304.97 542.87 50,648.82 539.30 NA
lp://KSM/LKSM 114,221.67 10.92 31,447.62 113,718.29 10.88 32,802.94 503.39 NA
lp://KUSD/BNC 57,953.65 66.96 6,706.52 57,471.49 334.12 7,565.62 482.16 NA
lp://KUSD/KSM 586,490.13 4,791.82 642,218.66 586,717.28 4,795.02 664,352.72 227.15 NA
lp://KAR/QTZ 25,647.08 416.74 5,067.89 25,794.25 734.38 9,031.07 147.17 NA
lp://KSM/ARIS 108.64 4.99 67.97 217.58 9.52 139.26 108.93 NA
lp://KUSD/QTZ 26,758.23 345.59 6,382.98 26,856.97 510.80 9,749.00 98.74 NA
lp://KUSD/RMRK 11,602.62 3.54 14,666.43 11,657.64 3.56 14,759.31 55.02 NA
lp://KSM/RMRK 6,799.45 3.53 6,811.85 6,842.43 3.56 6,854.22 42.98 NA
lp://KAR/LKSM 462,084.78 8,695.85 112,245.37 462,063.58 17,004.18 531,889.43 21.20 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```